unit Variable;

interface
uses
  Winapi.Windows;

  type TTools = class
    class function GetSysTempPath: string;
  end;

implementation

{ TTools }

class function TTools.GetSysTempPath: string;
var
  SysTempPath: string;
  nPathLength: Cardinal;
begin
  try
    SetLength(SysTempPath, 255);
    nPathLength := GetTempPath(255, PChar(SysTempPath));
    SetLength(SysTempPath, nPathLength);
    Result := SysTempPath + 'GGJRepairFloorID\';
  except
    Result := 'C:\GGJRepairFloorID\';
  end;
  SysTempPath := Result;
end;

end.
